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FIG. 7a 



FillDataSet Method 

Public Function XXXXFillDataSet(ByVal dataSet As DataSet {.ByVal 
{ParameterName} As System. {ParameterType}}) As Long 

' Copy input Parameter Values to the Parameter Collection 
DIM vtParameter As Varient 
vtParameterl = {ParameterName} 
Set 

{Adapterinstance}.SelectCommand. Parameters. ltem(ParameterName.Value=vtParamet 
er1 

'Create an error handling block in case filldataset throws an exception 
Try 

'Load dataSet from the command 

XXXXXFillDataSet = {Adapterlnstance}.FillDataSet(dataset) ^ 701 

Catch eFillExecption as Exception 

'if we can do a debug. print without a reference, then we should print the 
'error info to the output window and re-throw the error. 

End 



End Function 




FIG. 7b UpdatePataSet Method 



Public Function XXXXUodateDataSet (ByVal updateDataSet As DataSet) As Long 

const DataCursorRowState flag = DataCursorRowState.new | 
DataCursorRowState. Deleted | DataCursorRowState. ModifiedCurrent; 
DataRow[] datarows = dataTable.Selectf ", " flag); 

Dim UpdateRows as DataRows() 
Dim NewRows as DataRows() 
Dim Deleted Rows as DataRows() 

702 

' Get All of the Deleted Rows and Update the Data Store 

DeletedRows = UpdateDataSet.Select( M " ", DataCursorRowState. Deleted) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterlnstance.DefaultSourceTableName); 

End If 

' Get All of the Updates Rows and Update the Data Store 

UpdatedRows = Update DataSet. Selectf " ", 
DataCursorRowState. ModifiedCurrent) 

If 0 < dataRowLength then 

Update(DeletedRows, Adapterlnstance.DefaultSourceTableName); 

End If 

' Get All of the New Rows and Update the Data Store 

NewRows = UpdateDataSet.Selectf " DataCursorRowState. New) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterlnstance.DefaultSourceTableName); 

End If 



End Function 
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FillAllDataSet 

Public Sub FillAIIDataSet(ByVal dataset As DataSet(, ByVal Parameters As 
System. {ParameterType}) 

' The line below is added for each adapter on the Virtual Design Surface 

' Passing into the function only the necessary parameters 

(AdapterNamel)FillDataSet dataset{, _parameters} 

(AdapterName2)FNIDataSet dataset{, _parameters} 
* 



(AdapterNameN)FillDataSet dataset{, _parameters} 




End Sub 
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UpdateAIIDataSet 

Public Sub Update{DataSetName} (ByVal dataset As DataSet) 

' The line below is added for each adapter on the Virtual Design Surface 

(AdapterNamel)Update dataSet 
(AdapterName2)Update dataSet 

* 
* 
* 

(AdapterNameN)Update dataSet 

N 812 

End Sub 
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Public Sub FillAIIDataSet(ByVal PurchaseOrder As DataSet(, ByVal Parameters As 
System.{ParameterType}) 



CustomerFillDataSet PurchaseOrder(, ^parameters} 
OrderFillDataSet PurchaseOrder(, _parameters} 
OrderDetailFillDataSet PurchaseOrder(, _parameters} 
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End Sub 

Public Sub UpdateAII (ByVal PurchaseOrder As DataSet) 

' The line below is added for each adapter on the Virtual Design Surface 



OrderDetailUpdate (PurchaseOrder, Filtered (Delete)) 
OrderUpdate (PurchaseOrder, Filtered (Delete)) 
CustomerUpdate (PurchaseOrder, Filtered (Delete)) 



943 



' The line below is added for each adapter on the Virtual Design Surface 

OrderDetailUpdate (PurchaseOrder, Filtered (Insert | Update)) 
OrderUpdate (PurchaseOrder, Filtered (Insert | Update)) 
CustomerUpdate (PurchaseOrder, Filtered (Insert | Update)) 
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End Sub 
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